home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / sptmbr11.lha / clx / provide.lisp < prev    next >
Lisp/Scheme  |  1990-06-14  |  2KB  |  57 lines
  1. ;;; -*- Mode: LISP; Syntax: Common-lisp; Base: 10; Lowercase: Yes; Package: USER;  -*-
  2.  
  3. ;;;; Module definition for CLX
  4.  
  5. ;;; This file is a Common Lisp Module description, but you will have to edit
  6. ;;; it to meet the needs of your site.
  7.  
  8. ;;; Ideally, this file (or a file that loads this file) should be
  9. ;;; located in the system directory that REQUIRE searches.  Thus a user
  10. ;;; would say
  11. ;;;            (require :clx)
  12. ;;; to load CLX.  If there is no such registry, then the user must
  13. ;;; put in a site specific
  14. ;;;            (require :clx <pathname-of-this-file>)
  15. ;;;
  16.  
  17. #-clx-ansi-common-lisp 
  18. (in-package :user)
  19.  
  20. #+clx-ansi-common-lisp
  21. (in-package :common-lisp-user)
  22.  
  23. #-clx-ansi-common-lisp
  24. (provide :clx)
  25.  
  26. (defvar *clx-source-pathname*
  27.     (pathname "/src/local/clx/*.l"))
  28.  
  29. (defvar *clx-binary-pathname*
  30.     (let ((lisp
  31.         (or #+lucid "lucid"
  32.             #+akcl  "akcl"
  33.             #+kcl   "kcl"
  34.             #+ibcl  "ibcl"
  35.             (error "Can't provide CLX for this lisp.")))
  36.           (architecture
  37.         (or #+(or sun3 (and sun (or mc68000 mc68020))) "sun3"
  38.             #+(or sun4 sparc) "sparc"
  39.             #+(and hp (or mc68000 mc68020)) "hp9000s300"
  40.             #+vax "vax"
  41.             #+prime "prime"
  42.             #+sunrise "sunrise"
  43.             #+ibm-rt-pc "ibm-rt-pc"
  44.             #+mips "mips"
  45.             #+prism "prism"
  46.             (error "Can't provide CLX for this architecture."))))
  47.       (pathname (format nil "/src/local/clx/~A.~A/" lisp architecture))))
  48.  
  49. (defvar *compile-clx*
  50.     nil)
  51.  
  52. (load (merge-pathnames "defsystem" *clx-source-pathname*))
  53.  
  54. (if *compile-clx*
  55.     (compile-clx *clx-source-pathname* *clx-binary-pathname*)
  56.   (load-clx *clx-binary-pathname*))
  57.